	  �4  Y   k820309    �
          11.1        M��_                                                                                                           
       regrid_a2a_mod.F90 REGRID_A2A_MOD              DO_REGRID_A2A INIT_MAP_A2A CLEANUP_MAP_A2A gen@MAP_A2A                      @                             
                                                             u #MAP_A2A_R8R8    #MAP_A2A_R4R8    #MAP_A2A_R4R4 !   #MAP_A2A_R8R4 0   #         @     @X                                             #MAP_A2A_R8R8%PRESENT    #IM    #JM    #LON1    #SIN1    #Q1    #IN 	   #JN 
   #LON2    #SIN2    #Q2    #IG    #IV    #MISSVAL                  @                                 PRESENT           
  @@                                                  
  @@                                                 
  @@                                                 
 	   p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                 
    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                
      p        5 � p        r    p          5 � p        r      5 � p        r        5 � p        r      5 � p        r                                
  @@                             	                     
  @@                              
                    
  @@                                                 
 
   p           5 � p        r 	   n                                       1     5 � p        r 	   n                                      1                                    
  @@                                                 
    p           5 � p        r 
   n                                       1     5 � p        r 
   n                                      1                                    D @@                                                
       p        5 � p        r 	   p          5 � p        r 	     5 � p        r 
       5 � p        r 	     5 � p        r 
                               
  @@                                                  
  @@                                                   
 @@                                  
      #         @     @X                                              #MAP_A2A_R4R8%PRESENT    #MAP_A2A_R4R8%REAL    #IM    #JM    #LON1    #SIN1    #Q1    #IN    #JN    #LON2    #SIN2    #Q2    #IG    #IV    #MISSVAL                   @                                 PRESENT               @             @                   REAL           
  @@                                                  
  @@                                                 
  @@                                                 	    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                 	    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                	      p        5 � p        r    p          5 � p        r      5 � p        r        5 � p        r      5 � p        r                                
  @@                                                  
  @@                                                  
  @@                                                 	    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    
  @@                                                 	    p           5 � p        r    n                                       1     5 � p        r    n                                      1                                    D @@                                                
       p        5 � p        r    p          5 � p        r      5 � p        r        5 � p        r      5 � p        r                                
  @@                                                  
  @@                                                   
 @@                                   	      #         @     @X                            !                  #MAP_A2A_R4R4%PRESENT "   #IM #   #JM $   #LON1 %   #SIN1 &   #Q1 '   #IN (   #JN )   #LON2 *   #SIN2 +   #Q2 ,   #IG -   #IV .   #MISSVAL /                 @                            "     PRESENT           
  @@                             #                     
  @@                             $                    
  @@                             %                    	    p           5 � p        r #   n                                       1     5 � p        r #   n                                      1                                    
  @@                             &                    	    p           5 � p        r $   n                                       1     5 � p        r $   n                                      1                                    
  @@                            '                    	      p        5 � p        r #   p          5 � p        r #     5 � p        r $       5 � p        r #     5 � p        r $                               
  @@                             (                     
  @@                              )                    
  @@                             *                    	    p           5 � p        r (   n                                       1     5 � p        r (   n                                      1                                    
  @@                             +                    	    p           5 � p        r )   n                                       1     5 � p        r )   n                                      1                                    D @@                            ,                    	       p        5 � p        r (   p          5 � p        r (     5 � p        r )       5 � p        r (     5 � p        r )                               
  @@                             -                     
  @@                              .                     
 @@                             /     	      #         @     @X                            0                  #MAP_A2A_R8R4%PRESENT 1   #MAP_A2A_R8R4%REAL 2   #IM 3   #JM 4   #LON1 5   #SIN1 6   #Q1 7   #IN 8   #JN 9   #LON2 :   #SIN2 ;   #Q2 <   #IG =   #IV >   #MISSVAL ?                 @                            1     PRESENT               @             @              2     REAL           
  @@                             3                     
  @@                             4                    
  @@                             5                    	    p           5 � p        r 3   n                                       1     5 � p        r 3   n                                      1                                    
  @@                             6                    	     p           5 � p        r 4   n                                       1     5 � p        r 4   n                                      1                                    
  @@                            7                    
 "     p        5 � p        r 3   p          5 � p        r 3     5 � p        r 4       5 � p        r 3     5 � p        r 4                               
  @@                             8                     
  @@                              9                    
  @@                             :                    	    p           5 � p        r 8   n                                       1     5 � p        r 8   n                                      1                                    
  @@                             ;                    	 !   p           5 � p        r 9   n                                       1     5 � p        r 9   n                                      1                                    D @@                            <                    	 #      p        5 � p        r 8   p          5 � p        r 8     5 � p        r 9       5 � p        r 8     5 � p        r 9                               
  @@                             =                     
  @@                              >                     
 @@                             ?     
                                                   @                                                                                                      A                                                         #         @                                  B                  #DO_REGRID_A2A%DBLE C   #FILENAME D   #IM E   #JM F   #INGRID G   #OUTGRID H   #IS_MASS K   #NETCDF L                 @                            C     DBLE           
  @@                             D                    1           
@ @@                             E                     
@ @@                             F                    
   @                             G                    
      p        5 � p        r E   p          5 � p        r E     5 � p        r F       5 � p        r E     5 � p        r F                              D @@                            H                    
       p        5 r I   p          5 r I     5 r J       5 r I     5 r J                               
   @                              K                     
  @                              L           #         @                                  M                  #INIT_MAP_A2A%ALLOCATED N   #NX O   #NY P   #LONS Q   #SINES R   #AREAS S   #DIR T                 @                            N     ALLOCATED           
   @                              O                     
   @                              P                    
   @                             Q                    
 e   p           5 � p        r O   n                                       1     5 � p        r O   n                                      1                                    
   @                             R                    
 f   p           5 � p        r P   n                                       1     5 � p        r P   n                                      1                                    
   @                             S                    
 g     p        5 � p        r O   p          5 � p        r O     5 � p        r P       5 � p        r O     5 � p        r P                               
   @                             T                    1 #         @                                  U                   #CLEANUP_MAP_A2A%ALLOCATED V                 @                            V     ALLOCATED            @ @@                             J                       @ @@                             I               �   *      fn#fn $   �   G   b   uapp(REGRID_A2A_MOD      @   J  PRECISION_MOD    Q  �       gen@MAP_A2A    �  �      MAP_A2A_R8R8 %   �  @      MAP_A2A_R8R8%PRESENT     �  @   a   MAP_A2A_R8R8%IM     0  @   a   MAP_A2A_R8R8%JM "   p  &  a   MAP_A2A_R8R8%LON1 "   �  &  a   MAP_A2A_R8R8%SIN1     �  $  a   MAP_A2A_R8R8%Q1     �  @   a   MAP_A2A_R8R8%IN        @   a   MAP_A2A_R8R8%JN "   `  &  a   MAP_A2A_R8R8%LON2 "   �  &  a   MAP_A2A_R8R8%SIN2     �	  $  a   MAP_A2A_R8R8%Q2     �
  @   a   MAP_A2A_R8R8%IG       @   a   MAP_A2A_R8R8%IV %   P  @   a   MAP_A2A_R8R8%MISSVAL    �  �      MAP_A2A_R4R8 %   ~  @      MAP_A2A_R4R8%PRESENT "   �  =      MAP_A2A_R4R8%REAL     �  @   a   MAP_A2A_R4R8%IM     ;  @   a   MAP_A2A_R4R8%JM "   {  &  a   MAP_A2A_R4R8%LON1 "   �  &  a   MAP_A2A_R4R8%SIN1     �  $  a   MAP_A2A_R4R8%Q1     �  @   a   MAP_A2A_R4R8%IN     +  @   a   MAP_A2A_R4R8%JN "   k  &  a   MAP_A2A_R4R8%LON2 "   �  &  a   MAP_A2A_R4R8%SIN2     �  $  a   MAP_A2A_R4R8%Q2     �  @   a   MAP_A2A_R4R8%IG       @   a   MAP_A2A_R4R8%IV %   [  @   a   MAP_A2A_R4R8%MISSVAL    �  �      MAP_A2A_R4R4 %   r  @      MAP_A2A_R4R4%PRESENT     �  @   a   MAP_A2A_R4R4%IM     �  @   a   MAP_A2A_R4R4%JM "   2  &  a   MAP_A2A_R4R4%LON1 "   X  &  a   MAP_A2A_R4R4%SIN1     ~  $  a   MAP_A2A_R4R4%Q1     �  @   a   MAP_A2A_R4R4%IN     �  @   a   MAP_A2A_R4R4%JN "   "  &  a   MAP_A2A_R4R4%LON2 "   H  &  a   MAP_A2A_R4R4%SIN2     n  $  a   MAP_A2A_R4R4%Q2     �  @   a   MAP_A2A_R4R4%IG     �  @   a   MAP_A2A_R4R4%IV %     @   a   MAP_A2A_R4R4%MISSVAL    R  �      MAP_A2A_R8R4 %   @   @      MAP_A2A_R8R4%PRESENT "   �   =      MAP_A2A_R8R4%REAL     �   @   a   MAP_A2A_R8R4%IM     �   @   a   MAP_A2A_R8R4%JM "   =!  &  a   MAP_A2A_R8R4%LON1 "   c"  &  a   MAP_A2A_R8R4%SIN1     �#  $  a   MAP_A2A_R8R4%Q1     �$  @   a   MAP_A2A_R8R4%IN     �$  @   a   MAP_A2A_R8R4%JN "   -%  &  a   MAP_A2A_R8R4%LON2 "   S&  &  a   MAP_A2A_R8R4%SIN2     y'  $  a   MAP_A2A_R8R4%Q2     �(  @   a   MAP_A2A_R8R4%IG     �(  @   a   MAP_A2A_R8R4%IV %   )  @   a   MAP_A2A_R8R4%MISSVAL !   ])  p       FP+PRECISION_MOD !   �)  p       F4+PRECISION_MOD    =*  �       DO_REGRID_A2A #   �*  =      DO_REGRID_A2A%DBLE '   *+  L   a   DO_REGRID_A2A%FILENAME !   v+  @   a   DO_REGRID_A2A%IM !   �+  @   a   DO_REGRID_A2A%JM %   �+  $  a   DO_REGRID_A2A%INGRID &   -  �   a   DO_REGRID_A2A%OUTGRID &   �-  @   a   DO_REGRID_A2A%IS_MASS %   ..  @   a   DO_REGRID_A2A%NETCDF    n.  �       INIT_MAP_A2A '   /  B      INIT_MAP_A2A%ALLOCATED     M/  @   a   INIT_MAP_A2A%NX     �/  @   a   INIT_MAP_A2A%NY "   �/  &  a   INIT_MAP_A2A%LONS #   �0  &  a   INIT_MAP_A2A%SINES #   2  $  a   INIT_MAP_A2A%AREAS !   =3  L   a   INIT_MAP_A2A%DIR     �3  g       CLEANUP_MAP_A2A *   �3  B      CLEANUP_MAP_A2A%ALLOCATED    24  @      JJPAR    r4  @      IIPAR 